home *** CD-ROM | disk | FTP | other *** search
/ DS-CD ROM 2 1993 August / DS CD-ROM 2.Ausgabe (August 1993).iso / utility / ds0360 / pb32.exe / INFO.BAT < prev    next >
DOS Batch File  |  1992-09-04  |  14KB  |  587 lines

  1. echo off
  2. rem ##############################################################
  3. rem ##                                                          ##
  4. rem ##                        I N F O                           ##
  5. rem ##                                                          ##
  6. rem ##      Hilfe-System für das Programm PROFIBATCH V3.0       ##
  7. rem ##                                                          ##
  8. rem ##             (c) 1991 by W. Andreas Pollack               ##
  9. rem ##                                                          ##
  10. rem ##############################################################
  11.  
  12.  
  13. rem ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
  14. rem                     Variablen
  15. rem +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
  16. set menu=info
  17. set dy=▒
  18. set im=Info
  19. set km=Kontext
  20. set sm=Schalter
  21. set om=Optionen
  22. set dm=DOS
  23. set rm=Registrierung
  24. set hm=Hilfe
  25.  
  26. goto start
  27.  
  28. rem +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
  29. rem                     Subroutinen
  30. rem +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
  31. REM Löscht nur die obere Hälfte
  32. :refresh1
  33. set menu=
  34. REM infotxt.1,-X1,-Y1,-H3,-V0,-R0,-O
  35. REM infotxt.2,-X3,-Y1,-H3,-V15,-R0,-O
  36. REM infotxt.3,-X11,-Y1,-H3,-V15,-R0,-O
  37. REM infotxt.4,-X22,-Y1,-H3,-V15,-R0,-O
  38. REM infotxt.5,-X34,-Y1,-H3,-V15,-R0,-O
  39. REM infotxt.6,-X46,-Y1,-H3,-V15,-R0,-O
  40. REM infotxt.7,-X53,-Y1,-H3,-V15,-R0,-O
  41. REM infotxt.8,-X70,-Y1,-H3,-V15,-R0,-O
  42. REM infotxt.9,-X1,-Y2,-R0,-O
  43. USELIB 1-9 INFO
  44. goto main
  45.  
  46. REM Löscht alles
  47. :refresh2
  48. set menu=
  49. REM infotxt.10,-X1,-Y1,-H3,-V0,-R0,-O
  50. REM infotxt.11,-X3,-Y1,-H3,-V15,-R0,-O
  51. REM infotxt.12,-X11,-Y1,-H3,-V15,-R0,-O
  52. REM infotxt.13,-X22,-Y1,-H3,-V15,-R0,-O
  53. REM infotxt.14,-X34,-Y1,-H3,-V15,-R0,-O
  54. REM infotxt.15,-X46,-Y1,-H3,-V15,-R0,-O
  55. REM infotxt.16,-X53,-Y1,-H3,-V15,-R0,-O
  56. REM infotxt.17,-X70,-Y1,-H3,-V15,-R0,-O
  57. REM infotxt.18,-X1,-Y2,-R0,-O
  58. USELIB 10-18 INFO
  59. goto main
  60.  
  61. :lastmenu
  62. REM infotxt.19,-X1,-Y2,-R0,-O
  63. USELIB 19 INFO
  64. goto %menu%
  65.  
  66. rem +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
  67. rem               Jetzt geht's richtig los...
  68. rem +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
  69. :start
  70. REM -F,-C
  71. REM infotxt.21,-X1,-Y1,-H3,-V0,-R0,-O
  72. REM infotxt.22,-X3,-Y1,-H3,-V15,-R0,-O
  73. REM infotxt.23,-X11,-Y1,-H3,-V15,-R0,-O
  74. REM infotxt.24,-X22,-Y1,-H3,-V15,-R0,-O
  75. REM infotxt.25,-X34,-Y1,-H3,-V15,-R0,-O
  76. REM infotxt.26,-X46,-Y1,-H3,-V15,-R0,-O
  77. REM infotxt.27,-X53,-Y1,-H3,-V15,-R0,-O
  78. REM infotxt.28,-X70,-Y1,-H3,-V15,-R0,-O
  79. REM infotxt.29,-X1,-Y2,-R0,-O
  80. REM infotxt.30,-X1,-Y25,-H6,-V15,-R0,-O
  81. USELIB 20-30 INFO
  82. goto %menu%
  83.  
  84. rem +++++++++++++++++++++++++++++++++++++++++++
  85. rem         Hier beginnt das Hauptmenü
  86. rem +++++++++++++++++++++++++++++++++++++++++++
  87. :main
  88. REM -NDY,-X80,-Y24,-R0
  89. USELIB 31 INFO
  90. if errorlevel 254 goto end
  91. if errorlevel 116 goto main
  92. if errorlevel 115 goto schalter
  93. if errorlevel 114 goto registrierung
  94. if errorlevel 112 goto main
  95. if errorlevel 111 goto optionen
  96. if errorlevel 108 goto main
  97. if errorlevel 107 goto kontext
  98. if errorlevel 106 goto main
  99. if errorlevel 105 goto info
  100. if errorlevel 104 goto hilfe
  101. if errorlevel 101 goto main
  102. if errorlevel 100 goto dos
  103. if errorlevel 20 goto main
  104. goto main
  105.  
  106. rem +++++++++++++++++++++++++++++++++++++++++++++++++++++++++
  107. rem         Die Menüs in der Header-Zeile (doppelter Rahmen!)
  108. rem +++++++++++++++++++++++++++++++++++++++++++++++++++++++++
  109. :info
  110. REM -NIM,-X3,-Y1,-H7,-V0,-R0,-O
  111. REM infotxt.33,-H7,-V0,-S,-Z5
  112. REM infotxt.37,-U Das leistet Ihr Programm ,-H7,-V0,-S
  113. REM infotxt.38,-U So einfach geht das! ,-H7,-V0,-R1,-S
  114. USELIB 32-33 INFO
  115. USELIB 37-38 INFO
  116. goto refresh1
  117.  
  118. :kontext
  119. set menu=kontext
  120. REM -NKM,-X11,-Y1,-H7,-V0,-R0,-O
  121. REM infotxt.40,-U Kontext ,-X11,-Y2,-H7,-V0,-S,-O,-M
  122. USELIB 39-40 INFO
  123. if errorlevel 254 goto refresh1
  124. if errorlevel 9 goto output
  125. if errorlevel 8 goto menufunktion
  126. if errorlevel 7 goto mausmenu
  127. if errorlevel 6 goto libmenu
  128. if errorlevel 5 goto input
  129. if errorlevel 4 goto steuer
  130. if errorlevel 3 goto bildschmenu
  131. if errorlevel 2 goto textmenu
  132. if errorlevel 1 goto verschmenu
  133.  
  134. :schalter
  135. set menu=schalter
  136. set submenu=schalter
  137. REM -NSM,-X22,-Y1,-H7,-V0,-R0,-O
  138. REM infotxt.42,-U Schalter ,-X22,-Y2,-H7,-V0,-S,-O,-M
  139. USELIB 41-42 INFO
  140. if errorlevel 254 goto refresh1
  141. if errorlevel 7 goto steuer
  142. if errorlevel 6 goto output
  143. if errorlevel 5 goto mausmenu
  144. if errorlevel 4 goto input
  145. if errorlevel 3 goto farben
  146. if errorlevel 2 goto erstellen
  147. if errorlevel 1 goto clear
  148.  
  149. :optionen
  150. set menu=optionen
  151. set submenu=optionen
  152. REM -NOM,-X34,-Y1,-H7,-V0,-R0,-O
  153. REM infotxt.44,-U Optionen ,-X34,-Y2,-H7,-V0,-S,-O,-M
  154. USELIB 43-44 INFO
  155. if errorlevel 254 goto refresh2
  156. if errorlevel 14 goto zeit
  157. if errorlevel 13 goto y
  158. if errorlevel 12 goto x
  159. if errorlevel 11 goto obligat
  160. if errorlevel 10 goto vorder
  161. if errorlevel 9 goto uberschrift
  162. if errorlevel 8 goto schatten
  163. if errorlevel 7 goto rahmen
  164. if errorlevel 6 goto piep
  165. if errorlevel 5 goto textOHNE
  166. if errorlevel 4 goto hinter
  167. if errorlevel 3 goto clear
  168. if errorlevel 2 goto breite
  169. if errorlevel 1 goto erweitern
  170.  
  171. :dos
  172. set menu=dos
  173. REM -NDM,-X46,-Y1,-H7,-V0,-R0,-O
  174. REM infotxt.46,-U DOS-Funktionen ,-X46,-Y2,-H7,-V0,-S,-O,-M
  175. USELIB 45-46 INFO
  176. if errorlevel 254 goto refresh1
  177. if errorlevel 4 goto formatieren
  178. if errorlevel 3 goto kopieren
  179. if errorlevel 2 goto programm
  180. if errorlevel 1 goto dosshell
  181.  
  182. :registrierung
  183. REM infotxt.50,-U Dahin geht's! ,-S
  184. USELIB 50 INFO
  185. goto refresh1
  186.  
  187. :hilfe
  188. REM -NHM,-X70,-Y1,-H7,-V0,-R0,-O
  189. REM infotxt.52,-U Gebrauchsanweisung ,-H7,-V0,-S
  190. USELIB 51-52 INFO
  191. goto refresh1
  192.  
  193. rem +++++++++++++++++++++++++++++++++++++++++++++++
  194. rem   Verschiedene Unter-Menüs (einfachen Rahmen!)
  195. rem +++++++++++++++++++++++++++++++++++++++++++++++
  196. :verschmenu
  197. set submenu=verschmenu
  198. REM infotxt.53,-U Verschiedenes ,-X33,-Y2,-H7,-V0,-R1,-S,-M
  199. USELIB 53 INFO
  200. if errorlevel 254 goto %menu%
  201. if errorlevel 6 goto bat2q
  202. if errorlevel 5 goto lib2txt
  203. if errorlevel 4 goto esc
  204. if errorlevel 3 goto piep
  205. if errorlevel 2 goto help
  206. if errorlevel 1 goto syntax
  207.  
  208. :textmenu
  209. set submenu=textmenu
  210. REM infotxt.54,-U Textpräsentation ,-X33,-Y3,-H7,-V0,-R1,-S,-M
  211. USELIB 54 INFO
  212. if errorlevel 254 goto %menu%
  213. if errorlevel 10 goto hinter
  214. if errorlevel 9 goto vorder
  215. if errorlevel 8 goto obligat
  216. if errorlevel 7 goto zeit
  217. if errorlevel 6 goto textOHNE
  218. if errorlevel 5 goto textMIT
  219. if errorlevel 4 goto uberschrift
  220. if errorlevel 3 goto schatten
  221. if errorlevel 2 goto rahmen
  222. if errorlevel 1 goto xy
  223.  
  224. :bildschmenu
  225. REM infotxt.55,-U Bildschirm ,-X33,-Y4,-H7,-V0,-R1,-S,-M
  226. USELIB 55 INFO
  227. if errorlevel 254 goto %menu%
  228. if errorlevel 2 goto farben
  229. if errorlevel 1 goto clear
  230.  
  231. :libmenu
  232. set submenu=libmenu
  233. REM infotxt.56,-U Bibliothek ,-X33,-Y7,-H7,-V0,-R1,-S,-M
  234. USELIB 56 INFO
  235. if errorlevel 254 goto %menu%
  236. if errorlevel 3 goto benutzen
  237. if errorlevel 2 goto erweitern
  238. if errorlevel 1 goto erstellen
  239.  
  240. :mausmenu
  241. set submenu=mausmenu
  242. REM infotxt.57,-U Mausfunktionen ,-X33,-Y8,-H7,-V0,-R1,-S,-M
  243. if "%menu%" == "kontext" USELIB 57 INFO
  244. REM infotxt.58,-U Mausfunktionen ,-X51,-Y6,-H7,-V0,-R1,-S,-M
  245. if "%menu%" == "schalter" USELIB 58 INFO
  246. if errorlevel 254 goto %menu%
  247. if errorlevel 8 goto mausxrange
  248. if errorlevel 7 goto mausyrange
  249. if errorlevel 6 goto mausposition
  250. if errorlevel 5 goto mauslesen
  251. if errorlevel 4 goto mausoff
  252. if errorlevel 3 goto mauson
  253. if errorlevel 2 goto mausinit
  254. if errorlevel 1 goto mausinfo
  255.  
  256. rem ++++++++++++++++++++++++++++++++++++++++
  257. rem      Info - Texte
  258. rem +++++++++++++++++++++++++++++++++++++++
  259. :output
  260. REM infotxt.59,-U Variablen-Anzeige 
  261. USELIB 59 INFO
  262. goto %menu%
  263.  
  264. :steuer
  265. REM infotxt.60,-U Quelldateien 
  266. REM infotxt.61,-U Quelldateien 
  267. REM infotxt.62,-U Ein Beispiel... ,-H7,-V0
  268. USELIB 60-62 INFO
  269. goto %menu%
  270.  
  271. :input
  272. REM infotxt.63,-U Und jetzt das Tollste! ,-O
  273. REM -ITMP,-B30,-U Versuchen Sie's doch mal! ,-X31,-Y3,-H7,-V0,-O
  274. USELIB 63-64 INFO
  275. if errorlevel 254 goto lastmenu
  276. REM infotxt.65,-U Das haben Sie eingegeben ,-X31,-Y7,-H6,-R1,-S,-O
  277. USELIB 65 INFO
  278. if "%tmp%" == "" goto inp1
  279. REM -NTMP,-X33,-Y9,-H6,-V15,-R0
  280. USELIB 66 INFO
  281. :inp1
  282. REM infotxt.67,-U Aber ... ,-H7,-V0,-S
  283. USELIB 67 INFO
  284. set tmp=
  285. goto lastmenu
  286.  
  287. :menufunktion
  288. REM infotxt.68,-H7,-V0,-S,-M
  289. USELIB 68 INFO
  290. if errorlevel 254 goto %menu%
  291. if errorlevel 19 goto men0
  292. if errorlevel 17 goto men1
  293. if errorlevel 1 goto men0
  294. :men0
  295. REM infotxt.69,-U NO! ,-H4,-V15,-S,-P,-Z2
  296. USELIB 69 INFO
  297. goto menufunktion
  298. :men1
  299. REM infotxt.70,-U YEAH! ,-H2,-V15,-S,-Z2
  300. USELIB 70 INFO
  301. goto %menu%
  302.  
  303. :syntax
  304. REM infotxt.71,-U SYNTAX 1 
  305. REM infotxt.72,-U SYNTAX 2 
  306. REM infotxt.73,-U SYNTAX 3 
  307. USELIB 71-73 INFO
  308. goto %submenu%
  309.  
  310. :piep
  311. REM infotxt.74,-H4,-V15,-P
  312. USELIB 74 INFO
  313. goto %submenu%
  314.  
  315. :x
  316. REM infotxt.75,-U Die vertikalen-Koordinaten ,-X1
  317. USELIB 75 INFO
  318. goto %menu%
  319.  
  320. :y
  321. REM infotxt.76,-U Die horizontalen-Koordinaten ,-Y1
  322. USELIB 76 INFO
  323. goto %menu%
  324.  
  325. :xy
  326. REM infotxt.77,-U Die vertikalen-Koordinaten ,-X1
  327. REM infotxt.78,-U Die horizontalen-Koordinaten ,-Y1
  328. USELIB 77-78 INFO
  329. goto %submenu%
  330.  
  331. :rahmen
  332. REM infotxt.79,-U Die Rahmentypen ,-R1
  333. USELIB 79 INFO
  334. goto %submenu%
  335.  
  336. :schatten
  337. REM infotxt.80,-U Und der Schatten ,-S
  338. USELIB 80 INFO
  339. goto %submenu%
  340.  
  341. :uberschrift
  342. REM infotxt.81,-U Das ist die Überschrift 
  343. USELIB 81 INFO
  344. goto %submenu%
  345.  
  346. :textMIT
  347. REM infotxt.82,-U So geht's am Einfachsten! 
  348. USELIB 82 INFO
  349. goto %submenu%
  350.  
  351. :textOHNE
  352. REM infotxt.83,-Y1,-V15,-S,-O
  353. REM infotxt.84,-X1,-Y5,-H7,-V0,-S
  354. REM -F,-H1,-V15,-C
  355. REM infotxt.86,-X1,-Y1,-V15,-R0,-O
  356. REM infotxt.87,-X1,-Y25,-V15,-R0,-O
  357. REM infotxt.88,-X1,-Y2,-V15,-R0,-O
  358. REM infotxt.89,-X79,-Y2,-V15,-R0,-O
  359. REM infotxt.90,-V13,-S
  360. REM -F,-C
  361. REM infotxt.92,-X1,-Y1,-H7,-V0,-O
  362. REM infotxt.93,-X10,-Y5,-H7,-V0,-O
  363. REM infotxt.94,-X20,-Y10,-H7,-V0,-O
  364. REM infotxt.95,-X30,-Y15,-H7,-V0,-O
  365. REM infotxt.96,-X40,-Y20
  366. USELIB 83-96 INFO
  367. goto start
  368.  
  369. :zeit
  370. REM infotxt.97,-U Man läßt sich ja Zeit! ,-Z60
  371. USELIB 97 INFO
  372. goto %submenu%
  373.  
  374. :obligat
  375. REM infotxt.98,-U Eine hilfreiche Unterstützung zur Abfrage! ,-Wj
  376. USELIB 98 INFO
  377. goto %submenu%
  378.  
  379. :vorder
  380. REM infotxt.99,-U Die Vordergrundfarben ,-V15
  381. USELIB 99 INFO
  382. goto %submenu%
  383.  
  384. :hinter
  385. REM infotxt.100,-U Die Hintergrundfarben ,-H7,-V0
  386. USELIB 100 INFO
  387. goto %submenu%
  388.  
  389. :farben
  390. REM -F,-H7,-V0,-C
  391. REM infotxt.102,-U Wenn man an den Bildschirm will ... 
  392. REM infotxt.103,-U So geht's! ,-R1
  393. USELIB 101-103 INFO
  394. goto start
  395.  
  396. :clear
  397. REM infotxt.104,-U Löschen tut nicht nur die Feuerwehr! ,-C
  398. USELIB 104 INFO
  399. goto start
  400.  
  401. :breite
  402. REM infotxt.105,-U Die INPUT-Breite ,-Y5,-O
  403. REM -ITMP,-B50,-U Dieses INPUT-Fenster ist 50 Zeichen breit! ,-Y20,-H6,-V15,-S
  404. USELIB 105-106 INFO
  405. set tmp=
  406. goto lastmenu
  407.  
  408. :erstellen
  409. REM infotxt.107,-U Und so geht alles viel schneller! 
  410. USELIB 107 INFO
  411. goto %submenu%
  412.  
  413. :erweitern
  414. REM infotxt.108,-U An alles ist gedacht ... 
  415. USELIB 108 INFO
  416. goto %submenu%
  417.  
  418. :benutzen
  419. REM infotxt.109,-U So wird's gemacht! 
  420. REM infotxt.110,-U Das war noch nicht alles! 
  421. REM infotxt.111,-U ... und noch mehr! 
  422. USELIB 109-111 INFO
  423. goto %submenu%
  424.  
  425. :mausyrange
  426. REM infotxt.112,-U Die Zeilen einschränken? 
  427. USELIB 112 INFO
  428. goto %submenu%
  429.  
  430. :mausxrange
  431. REM infotxt.113,-U Die Spalten einschränken? 
  432. USELIB 113 INFO
  433. goto %submenu%
  434.  
  435. :mausposition
  436. REM infotxt.114,-U Wo soll sie denn hin? 
  437. USELIB 114 INFO
  438. goto %submenu%
  439.  
  440. :mauslesen
  441. REM infotxt.115,-U Das ist das Wichtigste! 
  442. USELIB 115 INFO
  443. goto %submenu%
  444.  
  445. :mausoff
  446. REM infotxt.116,-U Weg ist die Maus! 
  447. USELIB 116 INFO
  448. goto %submenu%
  449.  
  450. :mauson
  451. REM infotxt.117,-U Igittigitt! Eine Maus! 
  452. USELIB 117 INFO
  453. goto %submenu%
  454.  
  455. :mausinit
  456. REM infotxt.118,-U So fängt man an ... 
  457. USELIB 118 INFO
  458. goto %submenu%
  459.  
  460. :mausinfo
  461. REM infotxt.119,-U Das sollten Sie beachten! 
  462. USELIB 119 INFO
  463. goto %submenu%
  464.  
  465. :esc
  466. REM infotxt.120,-U Und wie steig ich aus? 
  467. USELIB 120 INFO
  468. goto %submenu%
  469.  
  470. :help
  471. REM infotxt.121,-U Kunststoffüberzug nicht zum Verzehr geeignet! 
  472. USELIB 121 INFO
  473. goto %submenu%
  474.  
  475. :lib2txt
  476. REM infotxt.122,-U Das ist der Spion! 
  477. USELIB 122 INFO
  478. goto %submenu%
  479.  
  480. :bat2q
  481. REM infotxt.123,-U So geht alles viel einfacher ... 
  482. REM infotxt.124,-U Die OPTIONEN 
  483. REM infotxt.125
  484. REM infotxt.126
  485. USELIB 123-126 INFO
  486. goto %submenu%
  487.  
  488.  
  489. rem ++++++++++++++++++++++++++++++++++++++++
  490. rem       Error-Meldungen
  491. rem ++++++++++++++++++++++++++++++++++++++++
  492. :warn
  493. set lw=
  494. REM infotxt.127,-H4,-V142,-S,-P
  495. USELIB 127 INFO
  496. goto lastmenu
  497.  
  498. :inputerr
  499. set tmp=
  500. REM infotxt.128,-H4,-V14,-S,-P
  501. USELIB 128 INFO
  502. goto lastmenu
  503.  
  504. rem ++++++++++++++++++++++++++++++++++++++
  505. rem        Prozeduren
  506. rem ++++++++++++++++++++++++++++++++++++++
  507. :dosshell
  508. REM -F,-C
  509. USELIB 129 INFO
  510. echo Geben Sie EXIT ein, um zu INFO zurückzukehren!
  511. command
  512. set menu=dos
  513. goto start
  514.  
  515. :programm
  516. REM -IARGS,-B40,-U Bitte einen DOS-Befehl eingeben! ,-X7,-Y3,-H7,-V0,-R1,-S
  517. USELIB 130 INFO
  518. if errorlevel 254 goto %menu%
  519. if errorlevel 1 goto exedos
  520.  
  521. :exedos
  522. if "%ARGS%" == "" goto %menu%
  523. REM -F,-C
  524. USELIB 131 INFO
  525. command /c %ARGS%
  526. set args=
  527. echo Drücken Sie eine Taste um zu INFO zurückzukehren...
  528. REM -NDY,-X80,-Y25,-V0,-R0
  529. USELIB 132 INFO
  530. set menu=dos
  531. goto start
  532.  
  533. :kopieren
  534. set src=A
  535. set dst=A
  536. REM infotxt.133,-U Source ,-X25,-Y3,-H7,-V0,-R1,-S,-O
  537. REM -ISRC,-B1,-X36,-Y7,-H7,-V15,-R0,-O
  538. USELIB 133-134 INFO
  539. if errorlevel 254 goto lastmenu
  540. REM infotxt.135,-U Destination ,-X25,-Y12,-H7,-V0,-R1,-S,-O
  541. REM -IDST,-B1,-X36,-Y16,-H7,-V15,-R0,-O
  542. USELIB 135-136 INFO
  543. if errorlevel 254 goto lastmenu
  544. REM -F,-C
  545. USELIB 137 INFO
  546. diskcopy %src%: %dst%:
  547. set src=
  548. set dst=
  549. set menu=dos
  550. goto start
  551.  
  552. :formatieren
  553. set lw=A
  554. REM infotxt.138,-U Formatieren ,-X23,-Y6,-H7,-V0,-R1,-S,-O
  555. REM -ILW,-B1,-X35,-Y10,-H7,-V15,-R0,-O
  556. USELIB 138-139 INFO
  557. if errorlevel 254 goto lastmenu
  558. if "%lw%" == "A" goto form
  559. if "%lw%" == "B" goto form
  560. if "%lw%" == "a" goto form
  561. if "%lw%" == "b" goto form
  562. goto warn
  563. :form
  564. REM -F,-C
  565. USELIB 140 INFO
  566. format %lw%:
  567. set lw=
  568. set menu=dos
  569. goto start
  570.  
  571. rem ++++++++++++++++++++++++++++++++++++++++
  572. rem               E N D E
  573. rem ++++++++++++++++++++++++++++++++++++++++
  574. :end
  575. set menu=
  576. set submenu=
  577. set im=
  578. set km=
  579. set sm=
  580. set om=
  581. set dm=
  582. set rm=
  583. set hm=
  584. set dy=
  585. REM -F,-C
  586. USELIB 141 INFO
  587.